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Dear Member, 


Editorial 


Thanks to all o^ the members who have submitted items for publication. 
As you probably realise it is impossible to reply directly to all who 
write to me, but all submitted articles will be published in the near 
future. 


ZY6ASIC has been slightly updated. Nothing spectacular, just a few bugs 
fixed. VDU‘‘2K version is now official. Contact Greenbank for details 
of how to upgrade. 

Mr D.Mason is willing to run an Interak Bulletin Board. He can also 
provide software to drive the application. See Contacts page for his 
address. 

Bob Eldridge 
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CUSTOM 80 MODIFICATION 
BY DON COX 


Problemi 

Intermittent failure of the printer. 

It appeared to be receiving one or two wrong bits in character. 

Solution I 

Investigation revealed that the frequency of the master clock oscillator 
on the cassette interface board was varying, especially when the 
computer was cold. The most likely cause of this was the use of a 
ceramic capacitor for C10} according to RS data sheet 2113, dealing with 
555 circuits, ceramic capacitors are not stable in this type of circuit. 
It is also quite difficult to adjust VRl correctly. 

Therefore C10 was replaced by a polystyrene capacitor of 1000pF (»lnF} 
and VRl was replaced by a multiturn Cermet resistor mounted on the front 
panel. A suitable mounting bracket is available from RS Components. 
Note that only two wires have to be connected to the Cermet. At the 
same time, link W1 was replaced by a switch mounted on the front panel; 
this allows the clock frequency to be conveniently monitored at any 
time. It is important to keep the Cermet and switch over to the left so 
that they do not foul the RAM board in the next socket. 

Result: 

The clock frequency is now extremely stable. 

If a 10K Cermet is used, a wider range of adjustment is possible, and 
Baud rates other than the standard four can be used. In principle, one 
could load and make listings of programs written for Spectrums, for 
instance (1500 Baud), but I haven't tried this. 

Note that if you aren't running the DFM program, the CTC is doing 
nothing. 
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CUSTOH 80 PROGRAM 
BY DON COX 

jTICKER 

ORG 200OH 
LOAD 2000M 

KBINVT: EQU 0EH 

CURSOR* EQU 0FFECH 

STATUS* EQU 0FFE1H 

CURCHRj EQU 0FFE2H 


2000 2A0E00 

LD HL,(KBINVT) 


2003 220E21 

LD (VECTORS+KBINVT),HL 

2006 210021 

LD HL,VECTORS 

{START OF TABLE OF ADDRESSES 

2009 7C 

LD A,H 


200A ED47 

LD I,A 

{HIGH BYTE GOES TO VECTOR 
{..REGISTER 

200C ED5E 

IM 2 


200E 7D 

LD A,L 

{VECTORS FOR CTC CAN START ABOVE 
{..THE KEYBOARD VECTOR 

200F C610 

ADD A,10H 

2011 D304 

OUT (04),A 

{TO CTC 0 FOR LOW BYTE OF FIRST 
(..VECTOR 

2013 3E03 

LD A,03 

(RESET NUMBER 

2015 D304 

OUT (04),A 

{SEND TO CHANNELS 0 *< 1 OF CTC 

2017 D305 

OUT (05),A 


2019 3E25 

LD A,25H 

(CONTROL WORD 

201B D304 

OUT (04),A 


201D 3E7D 

LD A,125 

(TIME CONSTANT 

201F D304 

OUT (04),A 


2021 3EC5 

LD A,0C5H 

(CONTROL WORD 

2023 D305 

OUT (05),A 


2025 3E3F 

LD A,63 


2027 D305 

OUT (05),A 


2029 FB 

El 


202A C32D20 

JP TYPE 

(OR WHEREVER 

jTHIS COULD ALSO BE A RST 28H JP 0 

OR RESET STOPS THE INTERRUPT 

jTHIS IS AN EXAMPLE OF 
202D DF TYPE* 

A PROGRAM THAT 1 

CAN RUN ALONG WITH INTERRUPTS 

RST 18H 


202E 03 

DB 03 

(FETCH CHARACTER FROM KEYBOARD 

202F DF 

RST 18H 


2030 05 

DB 05 

(DISPLAY IT 

2031 18FA 

JR TYPE 


2033 F5 INTERRUPTiPUSH AF 


2034 E5 

PUSH HL 


iCURSOR POSITIONS HAVE TO BE 

STORED IF THE INTERRUPT 

{..INVOLVES 

SCREEN DISPLAY 


2035 2AECFF 

LD HL,(CURSOR) 

2038 229320 

LD (CURSTORE) 

,HL 


203B 2A9520 LD HL,(CURST0RE2> 

203E 22ECFF LD (CURSOR),HL 
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A 


2041 

3AE2FF 


LD A,(CURCHR) 


2044 

329720 


LD ICHARSTR),A 


2047 

3AE1FF 


LD A,(STATUS) 


204A 

329222 


LD (STATUSTR),A 


204D 

CF 


RST 08 


204E 

1D00 


D6 ID,00 ;SET SCREEN TO PAGE MODE 

2050 

3A9820 


LD A,(LATCH) 


2053 

CB47 


BIT 0,A 


2055 

2B0C 


JR Z,TDCK 


2057 

CF 

TICK* 

RST 08 


2058 

20205449 


DB ' TICK ',00 


205C 

434B2020 



2060 

00 




2061 

180A 


JR EXIT 


2063 

CF 

TOCKi 

RST 08 


2064 

2020S44F 


DB ' TOCK ',00 


2068 

43462020 



206C 

00 




206D 

3A9820 

EXIT* 

LD A,(LATCH) 


2070 

EE01 


XOR 01 


2072 

329820 


LD (LATCH),A 


2075 

3A9220 


LD A,(STATUSTR) 


2078 

32E1FF 


LD (STATUS),A 




jTHIB SETS SCREEN BACK TO SCROLL MODE, IF 

ON 

207B 

3A9720 


LD A,(CHARSTR) 


207E 

32E2FF 


LD (CURCHR),A 


2081 

2AECFF 


LD HL,(CURSOR) 


2084 

229520 


LD (CURST0RE2),HL 


2087 

2A9320 


LD HL,(CURSTORE) 


208A 

22ECFF 


LD (CURSOR),HL 

POP HL 


208D 

El 



208E 

FI 


POP AF 


208F 

FB 


El 


2090 

ED4D 


RETI 


2092 

00 

STATUSTRi 

DB 0 


2093 

0000 

CURSTORE* 

DH 0 


2095 

0000 

CURST0RE2{DW 0 


2097 

00 

CHAR8TR* 

DB 00 


2098 

00 

LATCH* 

DB 00 





DRG 2100H 

LOAD 2100H 


2100 

0000 

VECTORS* 

DW 0 


2102 

0000 


DU 0 


2104 

0000 


DW 0 


2106 

0000 


DU 0 


2108 

0000 


DU 0 


210A 

0000 


DU 0 


210C 

0000 


DU 0 


210E 

0000 


DW 0 jKEYBOARD INTERRUPT VECTOR 

COPIED TO 

2110 

0000 


DU 0 


2112 

0000 


DW INTERRUPT 



END 
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CP/M ON THE INTERAK (PART 3) 

INTERAK BOOT RON 0381-0108-818481 
BY R.ELDRIDGE 

This boot rom is a first write for the Interak using a VDU 2K. It 
follows the "BOOT LAN" in that a jump table is the link to periferal 
dependant subroutines. In all boot ROMs the jump table remains the 
same, only the code of the routines are different. This has the effect 
of slowing any Interak disk to boot up and run on any Interak, even if 
one machine uses a VDU-2K and the other uses a serial terminal. Each 
will have the correct boot ROM and translation will be automatic. 

Nrite your BIOS to link to the jump table and it will run on all 
Interak's. 

This Boot Rom will boot from either single or double density 8 inch 
disks. Self selected. 

Single density is 77 tracks of 26 sectors of 128 bytes. 

Double density is 77 tracks of 26 sectors of 256 bytes. 


» 

BOOT VVKK-PPDD-NNYYMM 


i 

vv. 


; 

KK. 


) 

PP. 


) 

DO. 


{ 

NN. 


) 

YY. 

.Year 

} 

MM. 



{Version numbers used so far 


1 81.First bui 1 d. 

|Vdu codes (known at this time) 

;81.32 * 24, memory mapped. 8F808H. Vdu K. 

{02.64 * 16, memory mapped. 0F80OH. Vdu K+. 

;83.64 * 24, memory mapped. 0F008H. Vdu 2K. 

)84.Intelgraph port mapped at E0, El 

;0S.Intelgraph RS232 on ports 8,1 (stat,dat). 

{Keyboard codes (known at this time) 

{81.8 bit parallel, positive going strobe on 

{ bit 7. Via port 40H. LKl. 

;02.RS232 on ports 0,1 (statjdat). 

{Printer codes (known at this time) 

;81.6 bit parallel ascii data on port 7, 

I Controlled by TBMT on bit 7, port 6. 

{02.RS232 device, stat 02, data 03. Tbmt is bit 7. 

{Disk drive codes (known at this time) 

{08. ....6 inch single sided single or double density 

{ automatic density boot up. 
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£080 



ORG 

0E000H 

iBoot rom start address 

BDFF 


STACK 

EQU 

0BDFFH 

;Stack 

; Spad 






0040 


CURSOR 

EQU 

40H 

{Cursor 

0042 


KEYCDE 

EQU 

CURSOR+2 

{Last key pressed 

0043 


CURCAR 

EQU 

KEYCDE+1 

{Character under cursor 

0044 


DISKNO 

EQU 

CURCAR+1 


0045 


TRACK 

EQU 

DlSKNO+1 


0046 


SECTOR 

EQU 

TRACK+1 


0047 


CONMND 

EQU 

SECTOR+1 


0048 


RXSTAT 

EQU 

COMMND+1 


0049 


RTOP 

EQU 

RXSTAT+1 

{Store top 

;Ascii keys. 





0020 


SPACE 

EQU 

20H 

{Ascii space 

0008 


BS 

EQU 

8 

{Ascii backspace 

000D 


CR 

EQU 

0DH 

{Ascii carriage return 

0003 


CTRL C 

EQU 

3 

{Ascii control and C 

0002 


CTRL B 

EQU 

2 

{Ascii control and B 

000C 


FF 

EQU 

0CH 

{Ascii form feed 

007F 


DEL 

EQU 

7FH 

{Ascii delete 

000A 


LF 

EQU 

0AH 

{Ascii line feed 

; Vdu 

2K parameters. 




F000 


VDU 

EQU 

0F000H 


0040 


COLS 

EQU 

64 


0018 


LINES 

EQU 

24 


F5C0 


LINE24 

EQU 

0F5C0H 


iLKl 

sarameters 




0040 


KDATA 

EQU 

40H 


;DiBk 

ports. 





0080 


SDATA 

EQU 

80H 

{Contains ST-512 

0080 


DSTAT 

EQU 

SDATA 

{Disk status (read) 

0080 


DCOMM 

EQU 

SDATA 

{Disk command (write) 

0081 


DTRAC 

EQU 

DCOMM+1 

{Disk track (read/write 

0082 


DSECT 

EQU 

DTRAC+1 

{Disk sector (read/writ 

0083 


DDATA 

EQU 

DSECT+1 

{Disk data (read/write) 

0084 


DPOLL 

EQU 

DDATA+1 

{Disk polling (read) 

0085 


DCONF 

EQU 

DPOLL+1 

{Disk config (read/writ 

0086 


DOPTN 

EQU 

DCONF+1 

{Disk options (read) 

} Di sk 

commands 




001D 


SEEK 

EQU 

01DH 

{Seek command 

00AC 


WRITS 

EQU 

0ACH 

{Write sector command 

008C 


READS 

EQU 

08CH 

{Read sector command 

000D 


REST0 

EQU 

0DH 

{Restore command 

0000 


RDSEC 

EQU 

0 

{Read sector routine 

£000 

000000 

BEGIN: 

DEFB 0,0,0 

{User branch out 

£003 

C370E0 


JP 

COLDST 

{Cold start 

£006 

C355E0 


JP 

TRAPET 

{Trap error via 003BH 

£009 

C34BE0 


JP 

BOOTER 

{Warm boot error 
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EGGC 

C389E4 


JP 

CONST 

EG0F 

C3A3E4 


JP 

CONIN 

E012 

C3B6E4 


JP 

CONQUT 

E015 

C30FE5 


JP 

LIST 

E01S 

C369E4 


JP 

LISTST 

E01B 

C372E4 


JP 

PUNCH 

E01E 

C36DE4 


JP 

READER 

E021 

C372E1 


JP 

PRNMSG 

E024 

C314E2 


JP 

ATODEC 

E027 

C347E2 


JP 

HEXACC 

E02A 

C33CE2 


JP 

HEXHL 

E02D 

C37C£i 


JP 

COMPAR 

£030 

C37BE4 


JP 

CVDU 

E033 

C365E1 


JP 

DISCOM 

E036 

C381E1 


JP 

DISKER 

E039 

C350E0 


JP 

LOADER 

E03C 

C370E1 


JP 

SPAREl 

E03F 

C371E1 


JP 

SPARE2 

E042 

C380E1 


JP 

SPARE3 

E04S 

C313E2 


JP 

SPARE4 

E048 

C338E2 


JP 

SPARES 

E04B 

210FE3 

BOOTER: 

LD 

HL,SWBER 

E04E 

180D 


JR 

ABORT 

E050 

2123E3 

LOADER: 

LD 

HL,SLDER 

£053 

1808 


JR 

ABORT 

E0S5 

2136E3 

TRAPET: 

LD 

HL,STRAP 

£058 

1803 


JR 

ABORT 

E05A 

218083 

CBOQERt 

LD 

HL,SCBER 

E05D 

31FFBD 

ABORT: 

LD 

SP,STACK 

£060 

CD72Ei 


CALL PRNMSG 

£063 

218FE3 


LD 

HL,SRETRY 

£066 

CD72E1 


CALL PRNMSG 

£069 

CDA3E4 

WRETRY: 

CALL CONIN 

E06C 

FE0D 


CP 

CR 

E06E 

20F9 


JR 

NZ,WRETRY 



{Power 

on 1 

?ntry...... 

E070 

DBFF 

COLDST: 

IN 

A,(0FFH) 

E072 

2100F0 


LD 

HLjVDU 

£075 

1101F0 


LD 

DE,VDU+1 

E076 

010006 


LD 

BC,24*64 

E07B 

3620 


LD 

(HL),20H 

E07D 

EDB0 


LDIR 



{Find a 

stack parame 

E07F 

21FFFF 


LD 

HL,0FFFFH 

E082 

3E55 


LD 

A,55H 

£084 

23 

COLDSP: 

INC HL 

E08S 

46 


LD 

B, (HL) 

E086 

77 


LD 

(HL),A 

E087 

BE 


CP 

(HL) 

E088 

70 


LD 

(HL) ,B 

£089 

28F9 


JR 

Z,COLDSP 

E08B 

2B 


DEC HL 


Number 8 - July 1985 


)Get key status 
;Get key 

jPrint C reg to ydu 
jPrint A reg to printer 
]6et printer status 
I Punch 
}Reader 

iPrint message 
;Print decimal of A 
jPrint hex of Acc 
jPrint hex of HL 
{Compare HL:DE 
{Clear the vdu 
{Send command in A to disk 
{Disk error handler 
{Loader error 
; * 

I * 

\ * 

\ * 

I * 

{Warm boot error entry 

{To retry 

{Load error entry 

{To retry 

{Trap entry 

{To retry 

{Cold boot error entry 
{Reinitialise the stack 
{Print boot error message 
{String to retry 
{Ask to retry 
{Get responce 
{Is responce CR? 

{If no 1oop till it is 

Initial!sation. 

{Switch off power jump 
{Clear the screen 


er. Store top. 

{Low store 
{Write pattern 
{Next loc 
{Save data 
{Write pattern 
{Write ok? 

{Replace data 
{Loop till ram^l 
{HL points to ram top 
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EBBC 

EGSF 

E090 

E091 

E094 


E095 

E097 

EB9A 

E09C 

E09D 

E09E 

E0A0 

E0A2 


E0A5 

E0A7 

E0AA 

E0AD 


E0B0 

E0B2 


E0B4 


E0B7 

E0BA 

E0BD 

E0C0 

E0C3 

E0C6 

E0C9 

E0CC 

E0CF 

E0D2 

E0O5 

E0D0 

E0DA 

E0DD 

E0E0 


E0E1 

E0E4 

E0E7 

E0EA 

E0EC 


224900 


LD (RTOP),HL 

{Save store top 

25 


DEC H 

{ST-256 

25 


DEC H 

{ST-256 

228000 


LD (SDATA),HL 

{Save ST-512 

F9 


LD SP,HL 

{Initialise the stack 


{Clear ipad 


0605 


LD B,5 

{Spad entries 

214400 


LD HL,44H 

{Spad begins 

3E00 


LD A,0 

{Clear spad data 

77 

CSPAD: 

LD (HL) ,A 

{Clear first/next spad 

23 


INC HL 

{Next spad 

10FC 


DJNZ CSPAD 

{Loop till done 

3E01 


LD A,1 

{Sector initialisation data 

324600 


LD (SECTOR),A 

{Stat sector to 1 


{Initialise trap stop. 


3EC3 


LD A,0C3H 

{Opcode of JP instruction 

323800 


LD (3BH),A 

{Set JP at 0038H 

2106E0 


LD HL,BEGIN+6 

{Get trap return address 

223900 


LD (39H),HL 

{Form JP trap return at 0038H 


{Initialise the FDCI card. 

3E0C 


LD A,0CH 

{Set Acc for ULK,SSSD,0,A. 

D385 


OUT (DCONF) ,A 

{Configure FDCI chip 


{Initialise the keyboard. 

CD74E4 


CALL KINIT 



{Basic 

initial!sation 

completed, sign on. 

211AES 

READY* 

LD HL,SG0 

{Message to sign on with 

CD72E1 


CALL PRNMS6 

{Print sign on message 


{Print 

store size 


217AE2 


LD HL.SMEM 

{Store size message 

CD72E1 


CALL PRNMSG 

{Print store top 

2A4900 


LD HL,(RTOP) 

{Get store top number 

CD3CE2 


CALL HEXHL 

{Print it as hex 

2156E4 


LD HL,STERM 

{Terminate 

CD72E1 


CALL PRNMSG 

{Terminate the line 

IIFFBF 


LD DE,0BFFFH 

{DE 48k top address 

2A4900 


LD HL,(RTOP) 

[HL « Actual store top 

CD7CE1 


CALL COMPAR 

{Compare req to actual. 

3007 


JR NC,RAMOK 

{48k online try to boot 

21A7E2 


LD HL,NST0RE 

{Print "not enough store" 

CD72E1 


CALL PRNMSG 

{Print it 

76 


HALT 

{Freeze out. 


{Ensure 

that the drive 

is ready to Boot. 


{ H its 

not then ask the user to ready it and wait 


{unti 11 

it is ready. 


2191E2 

RAMOK* 

LD HL,SCHKA 

{Checking drive A ready 

CD72E1 


CALL PRNMSG 

{Print it 

CD60E2 


CALL INITRD 

{Ready reader 

3ED0 

FDCRESs 

LD A,0D0H 

{command a reset 

D380 


OUT (DC0MM),A 

{Execute the reset 
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E0EE 

0600 


LD B,0 

{Delay for reset 

E0F0 

10FE 

WRESi 

DJNZ WRES 

{Wait for reset end 

E0F2 

DBB0 


IN A,(OSTAT) 

{Get drive status 

E0F4 

CB47 


BIT 0,A 

{Test busy bit 

E0F6 

20F2 


JR NZjFDCRES 

{If busy force another reset 

E0F8 

3ED4 

NR: 

LD A,0D4H 

{Interupt at index 

E0FA 

CD65E1 


CALL DISCOM 

{Command wait for index 

E0FD 

DB80 


IN A,(DSTAT) 

{Get drive status 

E0FF 

CB7F 


BIT 7,A 

{Test for ready 

E101 

20F5 


JR NZ,NR 

{Loop if not ready 



;SiQD on complete... 

Seek track 0 on drive A 

E103 

060A 


LD B,10 

{Restore retry counts 

E105 

3E0D 

QAT00: 

LD A,REST0 

{Set Acc to restore command 

E107 

CD6SE1 


CALL DISCOM 

{Command drive A to restore 

E10A 

0880 


IN A, (DSTAT) 

{Get status 

Ei0C 

CB57 


BIT 2,A 

(At track 0? 

E10E 

2012 


JR NZ,AT00 

{Yes. then jump on 

E110 

10F3 


DJNZ QAT00 

{No. then retry if retries 



{Seek 0 

fails... 

.Hardware fault! 

Eli2 

3E10 


LD A,10H 

{For seek error 

EU4 

324800 


LD (RXSTAT),A 

{Status 

E117 

3E1D 


LD A,SEEK 

{Restore error is seek error 

E119 

324700 


LD (COMMND),A 

{Stat command 

EllC 

CD81E1 

NBQOTi 

CALL DISKER 

{Use disk error handler 

EllF 

C35AE0 


JP CBOOER 

{Then branch to cboot error 



{Get ready to boot. 


E122 

060A 

AT00: 

LD B,10 

{Boot retry counter 

E124 

3E8C 


LD A,READS 

{Read sector command 

Ei26 

324700 


LD (COMMND),A 

{Save command 

E129 

0E84 


LD C,DPOLL 

{Data port register 

E12B 

2A8000 


LD HL,(SDATA) 

{Destination address 

E12E 

3E01 


LD A,1 

{Sector to read is 1 

E130 

0382 


OUT (DSECT) ,A 

{Staticise sector to read 



{Ready 

to boot. 

.Begin single density boot. 

E132 

3E0C 

BOOTGO: 

LD A,0CH 

{Configure for BSSD,B,A 

E134 

0385 


OUT (DCQNF) ,A 

{Stat FDCI for SSSD,8,A 

E136 

CD0000 


CALL RDSEC 

(Read SSSD,G,A sector 1 

E139 

CD4BE1 


CALL CKSTAT 

{Check for a good read (S/D) 



{Single 

' density failed. 

.Try double density 

E13C 

3E08 


LD A,8 

{Set for double density,8,A 

E13E 

0385 


OUT (DCONF) ,A 

{Select SSDD,8,A on FDCI 

E140 

CD0000 


CALL RDSEC 

{Read SSDD,8,A sector 1 

E143 

C04BE1 


CALL CKSTAT 

{Check for a good read (D/D) 



{Both modes failed. 

.Retry sequence 10 times 

E146 

10EA 


DJNZ BOOTGO 

{If retries then retry 



{Boot failed 10 times.. 

.Do a tidy rom stop 

Ei4e 

C31CE1 


JP NBOOT 

{Branch boot not possible 
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jCheck status, return it error 


E14B 

0880 

CKSTAT: 

IN A,(OSTAT) 


{Get end status 

E14D 

2Ae000 


LO HL,(SDATA) 


{Data address 

E150 

E69D 


AND 9DH 


{Mask for errors 

E152 

324800 


LD (RXSTAT),A 


{Save status 

E155 

C0 


RET NZ 


{Return to retry if error 



• Good boot. 


.Move loader to 0080H 

E156 

FI 


POP AF 


{Unstack retry return 

E157 

118000 


LD DE,SDATA 


{Destination. HL ~ source 

EISA 

018000 


LD BC,SDATA 


{Size 

E15D 

EDB0 


LOIR 


{Transfer loader 



{Final 

initialise keyboard again just in case 

E15F 

CD74E4 


CALL KINIT 





;Loader 

now at SDATA. 

.. 

.Transfer to loader code 

E162 

C38000 


JP SDATA 


{Enter loader 



{Oiscorn 

, (sub),gives the 

command in Acc to the FDCI 



;and waits for INTRQ 

to 

be returned. 

E165 

324700 

DISCOM: 

LD (C0hHND},A 


{Save command 

E168 

0380 


OUT (DCOMM),A 


{Send command to FDCI 

E16A 

0884 

QINTRQ; 

IN A, (DPOLL) 


{Poll for flags 

E16C 

E601 


AND 1 


{Looking for INTRQ 

E16E 

28FA 


JR Z,QINTRQ 


{Branch if not done 

E170 

C9 

SPAREl: 

RET 


{Exit command done 

E171 

C9 

SPARE2! 

RET 





{Prnmsg 

, (sub),prints 

the string (HL) till (HL) = 0 

E172 

7E 

PRNMSG: 

LD A,(HL) 


{Read string character 

E173 

87 


OR A 


{Set up flags on char 

E174 

C8 


RET 2 


{Return if zero char 

Ei75 

4F 


LD C,A 


{Character to C 

E176 

CDB6E4 


CALL CONOUT 


{Print character in C 

E179 

23 


INC HL 


{Advance the pointer 

E17A 

13F6 


JR PRNMSG 


{Branch for next char 



{Compare, (sub), compares HL and OE, returns flags 



{the result. 





• 

) 


Z 

C S 



% 

1 

HL = DE 

1 

0 0 



• 

1 

HL < DE 

0 

1 1 



« 

HL > DE 

0 

0 0 

E17C 

87 

COMPAR: 

OR A 


{Clear carry 

E17D 

ED52 


SBC HL,DE 


{Compare HL:DE 

E17F 

19 


ADD HL,DE 


{Restore HL value 

E180 

C9 

SPARES: 

RET 


{Exit flags have compare 



{Oisker 

, (sub),decodes 

disk error status to the vdu 

E181 

C5 

DISKER: 

PUSH BC 



E182 

05 


PUSH DE 



E183 

E5 


PUSH HL 



E184 

21B9E3 


LD HL,SDRIVE 


{Drive string to HL 

E187 

C072E1 


CALL PRNMSG 


{Print Drive 
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EISA 

3A4400 


LD A, (DISKNO) 

jGet drive 

E18D 

C641 


ADD A,41H 

;Convert to ascii 

ElBF 

4F 


LD C,A 

{Drive to print register 

E190 

CD12E0 


CALL BEBIN+12H 

{Print the drive at fault 

E193 

3A4700 


LD A,(COMMND) 

{Command to A 

E196 

21C3E3 


LD HL,SSEEK 

{Seek string to HL 

E199 

E6E0 


AND 0E0H 

{Mask for command type 

E19B 

2811 


JR 2,DERR 

{Jump if seek command 

E19D 

21C9E3 


LD HL,BREAD 

{Read string to HL 

E1A0 

FEa0 


CP 80H 

{Was command read? 

E1A2 

2S0A 


JR Z.DERR 

{Jump if read command 

E1A4 

21CFE3 


LD HL,SWRITE 

{Write string to HL 

E1A7 

FEA0 


CP 0A0H 

{Was command write 

E1A9 

2803 


JR Z.DERR 

{Jump if write command 

ElAB 

21D6E3 


LD HL,SCOMER 

{Unknown command to HL 

ElAE 

CD72E1 

DERR: 

CALL PRNMSB 

{Print string in HL 

ElBl 

21DCE3 


LD HL.STRAC 

{Track string to HL 

E1B4 

CD72E1 


CALL PRNMSG 

{Print track string 

E1B7 

3A4500 


LD A, (TRACK) 

{Track to A 

EISA 

CD14E2 


CALL ATODEC 

{Print track number 

ElBD 

21E4E3 


LD HL,SSECT 

{Sector string to HL 

E1C0 

CD72E1 


CALL PRNMSG 

{Print sector string 

E1C3 

3A4600 


LD A, (SECTOR) 

{Sector to A 

E1C6 

CD14E2 


CALL ATODEC 

{Print sector number 

E1C9 

21EDE3 


LD HL,SSTAT 

{Status string to HL 

EICC 

CD72E1 


CALL PRNMSG 

{Print status string 

EICF 

3A4800 


LD A, (RXSTAT) 

{Status to A 

E1D2 

2102E4 


LD HL,NRDY 

{Not ready to HL 

E1D5 

17 


RLA 

{ (7) error "not ready"? 

E1D6 

3B2C 


JR C,GOERRP 

{Branch if yes 

EIDB 

210CE4 


LD HL,NWRT 

{Write prot to HL 

EIDB 

17 


RLA 

{ (6) error "write prot"? 

ElDC 

3826 


JR C,GOERRP 

{Branch if yes 

EIDE 

17 


RLA 

{ (5) status left 

EIDF 

17 


RLA 

; (4) error RNF or SKER 

E1E0 

F5 


PUSH AF 

{Stack status (4) 

ElEl 

3A4700 


LD A,(COMMND) 

{Get command code 

E1E4 

E6E0 


AND 0E0H 

{Mask for S=0i R=80! W*A0 

EiE6 

2007 


JR NZ,NSK 

{Jump if not seek command 

E1E8 

FI 


POP AF 

{Restore status seek error 

E1E9 

214BE4 


LD HL,NTRK 

{Seek error to HL 

ElEC 

3816 


JR C,GOERRP 

{Jump if seek error 

ElEE 

F5 


PUSH AF 

{Stack status 

ElEF 

FI 

NSK: 

POP AF 

{Restore status 

E1F0 

21iCE4 


LD HL,NREC 

{Rec not found to HL 

EiF3 

380F 


JR C,GOERRP 

{Jump if rec not found 

E1F5 

212DE4 


LD HL,NCRC 

{Bad CRC to HL 

E1F8 

17 


RLA 

; (3) error bad CRC 

E1F9 

3809 


JR C,GOERRP 

{Jump if bad CRC 

EIFB 

2135E4 


LD HL,NDAT 

{No data to HL 

EIFE 

17 


RLA 

{ (2) error lost data 

EIFF 

3803 


JR C,GOERRP 

{Jump if lost data 

E20i 

213FE4 


LD HL,NFRE 

{Busy to HL 

E204 

CD72E1 

GOERRP: 

CALL PRNMSG 

{Print error condition 

E207 

2156E4 


LD HL,STERM 

{Error terminator to HL 
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E28A 

CD72E1 


CALL PRNMSG 

E28D 

El 


POP HL 

E28E 

01 


POP DE 

E20F 

Cl 


POP BC 

E218 

3EFF 


LD A,8FFH 

E212 

B7 


OR A 

E213 

C9 

SPARE4! 

RET 



{Atodec 

,(sub),display 

E214 

F5 

ATODEC: 

PUSH AF 

E215 

C5 


PUSH BC 

E216 

05 


PUSH DE 

E217 

E5 


PUSH HL 

E218 

2139E2 


LD HL,PWR18 

E21B 

8688 

ATODl: 

LD B,8 

E21D 

96 

ATQD2: 

SUB (HL) 

E21E 

FA24E2 


JP M,AT0D3 

E221 

84 


INC B 

E222 

18F9 


JR AT0D2 

E224 

86 

AT0D3: 

ADD A»(HL) 

E225 

57 


LD D,A 

E226 

78 


LD A,B 

E227 

C638 


ADD A,'8' 

E229 

4F 


LD C,A 

E22A 

C0B6E4 


CALL CONOUT 

E22D 

3E81 


LD A,1 

E22F 

BE 


CP (HL) 

E238 

23 


INC HL 

E231 

7A 


LD A,D 

E232 

28E7 


JR NZ,ATODl 

E234 

El 


POP HL 

E235 

01 


POP DE 

E236 

Cl 


POP BC 

E237 

FI 


POP AF 

E238 

C9 

SPARES: 

RET 

E239 

648A81 

PWR18: 

DEFB 188,10,1 



{Hexhl, 

(sub), Prints 

E23C 

F5 

HEXHLi 

PUSH AF 

E23D 

7C 


LD A,H 

E23E 

CD47E2 


CALL HEXACC 

E241 

70 


LD A,L 

E242 

C047E2 


CALL HEXACC 

E245 

FI 


POP AF 

E246 

C9 


RET 



{Hexacc, 

1 (sub), Print 

E247 

C5 

HEXACC: 

PUSH BC 

E248 

F5 


PUSH AF 

E249 

IF 


RRA 

E24A 

IF 


RRA 

E24B 

IF 


RRA 

E24C 

IF 


RRA 

E24D 

CD7iE2 


CALL HEXAL 

E2S0 

4F 


LD C,A 


Number 8 - July 1985 
{Print error end 


{Flag to BDOS for error 
{Set flags on error 
{Return to BOOS 

A in decimal on the vdu 
{Save AF 
{Save 6C 
{Save OE 
{Save HL 

{Point to power 18 table 
{Result = 8 
{Subtract power 18 
{Jump if result negative 
{Result B result * 1 
{loop to try another sub 
{Restore argument 
{Argument to D 
{Result to A 
{Make result Ascii 
{Ascii result to C reg 
{Print result 
{last power of ten 
{Test for last used 
{Pointing to next power 
{Restore argument 
{Branch if not finished 
{End so restore HL 
{Restore DE 
{Restore BC 
{Restore AF 
{Exit done 
{Power of 18 table 

L as four hex digits on the vdu. 


as two hex digits to the vdu. 
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E251 

CDB6E4 

CALL CONOUT 

E254 

FI 

POP AF 

E255 

F5 

PUSH AF 

E256 

CD71E2 

CALL HEXAL 

E259 

4F 

LD C,A 

E25A 

CDB6E4 

CALL CONOUT 

E25D 

FI 

POP AF 

E25E 

Cl 

POP BC 

E25F 

C9 

RET 

E260 

2159E4 

INITRDi LD HLJABl 

E263 

1 10000 

LD DE,0 

E266 

0610 

LD B,16 

E268 

3E3E 

LD A,3EH 

E26A 

12 

RDl: LD (DE),A 

E26B 

86 

ADD A,(HL) 

E26C 

23 

INC HL 

E26D 

13 

INC DE 

E26E 

10FA 

DJNZ RDl 

E270 

C9 

RET 

} Hex a 

1 , (sub) , 

Converts low nibble 

E271 

E60F 

HEXALs AND 0FH 

E273 

FE0A 

CP 0AH 

E275 

3F 

CCF 

E276 

CE30 

ADC A,30H 

E278 

27 

DAA 

E279 

C9 

RET 

jStrina space. 

Contains Ascii mess 

E27A 

436F6E74 

SMEM: DEFM 'Conti 


oi ACC to ASCII hex in Acc 


for printing 
; store 8800-* 


E290 

E291 


E2A6 

E2A7 

E2A9 


E2BE 

E2C8 


6967756F 

75732073 

746F7265 

28303030 

302D 

00 

4D616B65 

20647269 

76652041 

20225245 

41445922 

2E 

00 

0D0A 

20202020 

20202020 

2A2A2A20 

4552524F 

52202A2A 

2A 

0D0A 

496E7375 

66666963 

69656E74 


SCHKA 


DEFB 

DEFM 


0 

'Make 


drive A "READY" 


NSTORE: 


DEFB 

DEFB 

DEFM 


0 

CR,LF 


»** ERROR *** 


DEFB 

DEFM 


CRjLF 

' Insufficient 


RAM. Load halted 
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E2DF 

E2E1 


E3ec 

E30F 

£311 


£322 

E323 

E325 


E335 

E336 

E338 


E356 

E358 


E37F 

E380 

E382 


2052414D 

2E20204C 

6F616420 

6B616C74 

65642E 

8D0A 

496E7374 

616C6C20 

52414D20 

746F2065 

7175616C 

20737973 

74656D20 

73697A65 

20616E64 

20726574 

72792E 

0D0A00 

0D0A 

5761726D 

206C6F61 

64206661 

696C6564 

2E 

00 

0D0A 

43502F4D 

202D2062 

6164206C 

6F616421 

00 

0D0A 

48697420 

61646472 

65737320 

30303338 

48202D20 

74726170 

2073746F 

702E 

0D0A 

54686520 

73797374 

656D2068 

61732063 

72617368 

65642E20 

20506C65 

61736520 

7265626F 

6F742E 

00 

0D0A 

426F6F74 

20666169 


DEFB CR,LF 

DEFK 'Install RAM to equal system size and retry.' 


DEFB CR,LF,0 
SWEEP; DEFB CR,LF 

DEFM 'Warm load failed.' 


DEFB 0 

SLDER: DEFB CR,LF 

DEFM 'CP/M - bad load! ' 


DEFB 0 

STRAP: DEFB CR,LF 

DEFM 'Hit address 0038H - trap stop.' 


DEFB CR,LF 

DEFM 'The system has crashed. Please reboot.' 


DEFB 0 

SOBER: DEFB CR,LF 

DEFM 'Boot failed. ' 
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6C65642E 

E38E 00 ® 

E38F 0D0A SRETRY: DEFB CR,LF 

E391 506C6561 DEFM 'Please press carrige return 

73652070 
72657373 
20636172 
72696765 
20726574 
75726E20 

E3AD 746F2072 DEFM 'tore-boot.' 

652D626F 

6F742E 

E3BB 00 DEFB 0 

E3B9 0D0A0A SDRIVE: DEFB CR,LF,LF jDrive 

E3BC 44726976 DEFM 'Drive 

6520 

E3C2 00 ® 

E3C3 20736565 SSEEK: DEFM ' seek' 

6D 

E3C8 00 DEFB 0 

E3C9 20726561 BREAD: DEFM ' read' 

64 

E3CE 00 DEFB 0 

E3CF 20777269 SWRITE: DEFM ' write' 

7465 

E3D5 00 DEFB 0 

E3D6 203F3F3F SCOMER: DEFM ' ????' 

3F 

E3DB 00 DEFB 0 

E3DC 20747261 STRAC: DEFM ‘ track 

636B20 

E3E3 00 DEFB 0 

E3E4 20736563 SSECT: DEFM ' sector 

746F7220 

E3EC 00 DEFB 0 

*' E3ED 0D0A SSTAT: DEFB CR,LF 

E3EF 52656365 DEFM 'Received status - 

69766564 
20737461 
74757320 
2D20 

E401 00 DEFB 0 

E402 4E6F7420 NRDYi DEFM 'Not ready' 

72656164 

79 

E40B 00 DEFB 0 

E40C 57726974 NWRT: DEFM 'Write protected' 

65207072 

6F746563 

746564 

E41B 00 DEFB 0 

E41C 5265636F NREC: DEFM 'Record not found' 

7264206E 

6F742066 
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E42C 

6F756E64 

88 


DEFB 

0 

E42D 

42616420 

NCRCi 

DEFM 

‘Bad CRC' 

E434 

435243 

00 


DEFB 

0 

E435 

4C6F7374 

NDATi 

DEFM 

'Lost data' 

E43E 

20646174 

61 

00 


DEFB 

0 

E43F 

44726976 

NFREi 

DEFM 

'Drive busy? 


65206275 




73793F 


E44A 

00 


DEFB 0 


E44B 

5365656B 

NTRKj 

DEFM 'Seek error ' 


20657272 





6F72 




E455 

00 


DEFB 0 


E456 

0D0A00 

STERM: 

DEFB CR,LF,0 

{Error sequence end 

E459 

4E47A06D 

TABli 

DEFB 4EH,47H, 

0ADH,6DH (Sector reader 

E45D 

63D8D4DF 


DEFB 63H,0D8H 

,0D4H,0DFH 

E461 

A8F4ACD7 


DEFB 0A8H,0F4H,0ACH,0D7H 

E465 

0AFCC900 


DEFB 0AH,0FCH 

f0C9H,00H 



jListst 

,(sub),returns 

printer status. Busy/not 

E469 

3EFF 

LISTSTi 

LD A,0FFH 

{Allways not busy 

E46B 

B7 


OR A 

(Stat flags 

E46C 

C9 


RET 

{Exit not busy 



{Reader 

,(sub),is not 

used yet. 

E46D 

3E1A 

READER! 

LD A,1AH 

{EOF for now 

E46F 

E67F 


AND 7FH 

(No action yet 

E471 

C9 


RET 

{Exit nothing done 



;Punch, 

(sub),is not used yet. 

E472 

79 

PUNCH: 

LD A,C 

{No action yet 

E473 

C9 


RET 

(Exit nothing done 



{Keyboard initi1isation. RET if not needed. 

E474 

AF 

KINIT: 

XOR A 

(Clear Acc 

E475 

324200 


LD (KEYCDE),A 

{Clear keystore 

E478 

DB40 


IN A,(40H) 

(Reset key latch 

E47A 

C9 


RET 

(Exit done 



{Video 

initi 1isation : 

routine. 



{CIS VDU 2K See COLDST also 

E47B 

2100F0 

CVDU! 

LD HL,VDU 


E47E 

1101F0 


LD DE,VDU+1 


E481 

010006 


LD BC,24*64 


E484 

3620 


LD (HL),20H 


E486 

EDB0 


LDIR 


8488 

C9 


RET 




;LK1 KEYBOARD DRIVER 

CODE IS 01 



{Const, 

(sub), returns 

valid key status in Acc 

E4S9 

3A4200 

CONST: 

LD A, (KEYCDE) 

(Read keycode store 
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E48C 

B7 


OR A 

;Set Flags on keycode 

E48D 

200E 


JR NZ,OLDKEY 

{Branch with old key 

E48F 

DB40 

NEMKEY: 

IN A,(KDATA) 

{Read keyboard 

E491 

C68e 


ADD A,80H 

{Strobe to carry Flag 

E493 

324200 


LD (KEYCDE),A 

{Save keycode 

E496 

3805 


JR C,OLDKEY 

{IF strobe go with key 

E498 

AF 


XOR A 

{Clear Acc 

E499 

324200 


LD (KEYCDE),A 

{Clear keycode store 

E49C 

C9 


RET 

{Exit no key 

E49D 

3EFF 

OLDKEY: 

LD A,0FFH 

{Flag For key 

E49F 

C9 


RET 

{Exit with key 



iConin, 

(sub),returns a 

valid key From the keyboard 

E4Ae 

CD89E4 

CONI: 

CALL CONST 

{Look For a key 

E4A3 

3A4200 

CONIN: 

LD A,(KEYCDE) 

{Get result 

E4A6 

B7 


DR A 

{Set Flags on key 

E4A7 

2BF7 


JR Z,CONl 

{Branch iF no key 

E4A9 

4F 


LD C,A 

{Key to C temp 

E4AA 

DB40 

STB: 

IN A,(KDATA) 

{Read For strobe 

E4AC 

C680 


ADD A,80H 

{Strobe to carry 

E4AE 

3BFA 


JR C,STB 

{Branch iF strobe 

E4B8 

AF 


XOR A 

{Clear A 

E4B1 

324200 


LD (KEYCDE),A 

{Clear keycode 

E4B4 

79 


LD A,C 

{Key back to A 

E4B5 

C9 


RET 

{Exit key in A 



iVDU 2K 

DRIVER. 




;Conout 

, (sub),sends the 

C reg to the VDU. 

E4B6 

C5 

CONDUTi 

PUSH BC 

{Save BC 

E4B7 

D5 


PUSH DE 

{Save DE 

E4B8 

E5 


PUSH HL 

{Save HL 

E4B9 

2A4000 


LD HL,(CURSOR) 

{HL « cursor 

E4BC 

3A4300 


LD A,(CURCAR) 

{Character under cursor 

E4BF 

77 


LD (HL),A 

{Put cursor character back 

E4Ce 

79 


LD A,C 

{Get character to display 

E4C1 

CBBF 


RES 7,A 

{Reset parity bit 

E4C3 

FE0D 


CP CR 

{Is it carriage return? 

E4C5 

200E 


JR NZ,NCR 

{Branch iF not CR 

E4C7 

21C0F5 


LD HL,LINE24 

{Point to bottom line 

E4CA 

7E 


LD A, (HL) 

{Get this character in A 

E4CB 

324300 


LD (CURCAR),A 

{Save A as curcar 

E4CE 

224000 

EXIT: 

LD (CURSOR),HL 

{Save cursor position 

E4D1 

El 


POP HL 

{Restore HL 

E4D2 

D1 


POP DE 

{Restore DE 

E4D3 

Cl 


POP BC 

{Restore BC 

E4D4 

C9 


RET 

{Exit done 

E4D5 

FE0A 

NCR: 

CP LF 

{Is it line Feed? 

E4D7 

2021 


JR NZ,NLF 

{Branch iF not LF 

E4D9 

1100F0 

LFEED: 

LD DE,VDU 

{Point to screen top 

E4DC 

2140F0 


LD HL,VDU+COLS 

{Point to line 2 start 

E4DF 

01C005 


LD BC,(LINES-l)*COLS jNumber to move 

E4E2 

EDB0 


LDIR 

{Scroll up 

E4E4 

21C0F5 


LD HL,LINE24 

{Load bottom line 

E4E7 

0640 


LD B,COLS 

{Load line length 

E4E9 

3E20 


LD A,SPACE 

{Space code 
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E4EB 

77 

CL24: 

LD (HL),A 

;Blank First 

E4EC 

23 


INC HL 

{Advance pointer 

E4ED 

10FC 


DJNZ CL24 

{Blank bottom line 

E4EF 

21C0F5 


LD HL,LINE24 

{Load bottom line 

E4F2 

7E 

SAVCURj 

LD A,(HL) 

{Get cursor character 

E4F3 

324300 


LD (CURCAR),A 

{Save it in curcar 

E4F6 

365F 


LD (HL) , ' ' 

{Print the cursor 

E4F8 

18D4 


JR EXIT 

{Branch to exit 

E4FA 

FE08 

NLF: 

CP BS 

{Is it backspace? 

E4FC 

2005 


JR NZ,NBS 

{Branch iF not 

E4FE 

3620 


LD (HL),SPACE 

{Blot out character 

E500 

2B 


DEC HL 

{Backspace pointer 

E501 

18EF 


JR SAVCUR 

{Branch to exit 

ES03 

77 

NBS: 

LD (HL),A 

{Print code in A 

E504 

23 


INC HL 

{Advance the cursor 

E505 

n00F6 


LD DE,LINE24+COLS :Screen end 

E508 

CD7CE1 


CALL COMPAR 

{Does cursor * end? 

ES0B 

28CC 


JR Z,LFEED 

{Branch iF end 

E50D 

18E3 


JR SAVCUR 

{Branch iF not end 



jPRINTER DRIVER (LISTS! is standard, not busy). 
jStandard printer driver. 



|Port 6 

is status, bit 

7 is TBMT 



;Port 7 

is data. 




;Li8t,(sub),prints the 

A reg on the printer. 

E50F 

F5 

LIST: 

PUSH AF 

{Save character to print 

ES10 

DB06 

LISTl: 

IN A,(6) 

{Get printer status.P2 

E512 

E6S0 


AND 80H 

{Is buFFer empty? 

E514 

28FA 


JR Z,LISTl 

{Loop iF no. 

E516 

FI 


POP AF 

{Get character to print 

E517 

D307 


OUT (7),A 

{Pass it to the printer.P3 

E519 

C9 


RET 

{Exit done. 

E51A 

0D0A 

SGOi 

DEFB CR,LF 


E51C 

494E5445 


DEFM 'INTERAK DOS VI' 


52414B20 

444F5320 

5631 




E52A 

0D0A 


DEFB CR,LF 


E52C 

424F4F54 


DEFM 'BOOT 0301 

-0100-018401.' 


20303330 

312D3031 

30302D30 

31383430 

312E 

E542 0D0ft00 DEFB CR,LF,0 

END 

ERRORS=0000 
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LETTERS TO THE EDITOR 

Please write with commentSf ideas, complaints and suggestions. Name and 
address must be enclosed. Responsibility for views and comments 
expressed cannot be held by the editor as members letters are published 
with the minimum changes (deleted bad language etc). (Note; I type what 
I see, if you forget a word then it will be missing in the newsletter, 
also if you spell a word wrong then it's quite likely that I will punch 
it in wrong.) 


Dear Ed, 

Yes, it would be a good idea to extend the Interak news letter 
to cover Custom GO users as well. There are not enough of us for a 
separate user group. I enclose 2 contributions: a constuctional note 
and a demo program showing how the CTC on the cassette board might be 
used for multi-tasking. 

I am working on the artwork for some new circuit boards which I hope 
to get produced shortly; these are : a tracked version of Mike Hastings 
Sound Generator Board, a Controller Board for electronic musical 
instruments (synthesizers ect), amd a PIO board. Further off are an 
RS232 board (send and recive) and a sound sampling board (fast D -> A 
and A -> D). These boards will not be up to current Greenbank standards 
of production etc but they should work and be usefull. 


DON COX, 13 OXFORD RD, MIDDLESBROUGH. 


Dear Ed, 


POINT-CONTACT TAPES 


Would'ent you like to have a chat now and again with other Interakers? 
seek help with that latest project or can you offer help with adding 
joysticks! or what ever it may be, etc. 


Problem there's not another Interaker around the corner just a chap with 
a Spectrum or Vic-20. 


Well this is what you do, join P.C.Tapes, small groups of folks usually 
3 spend about 20 minutes talking to each other on a standard C60 (or 4 
on a C90) cassette tape. 


Groups can be formed to cover special topics, you also get to know some 
very interesting people from different parts of the country. The only 
cost is the postage sending it on to the next member. No hard rules or 
regulations except it would be unfair to keep the tape for too long, and 
other members waiting! 


You don't have to talk computers, how about Photography or may be 
Gardening, etc.Interested drop me a line!!! 


MEL SAUNDERS, 7 DRUMCLIFF ROAD, THURNBY LODGE, LEICESTER, LE5 2LH. 
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Dear Ed, 

If the sketch (below) is what the Zybasic Manual means by a 
'three dimensioned array', the program enclosed will produce the correct 
values for the 'P' and 'N' indices in the plane at 'D'. 

But maybe this is not what the manual asks for? (1 haven't got the 
hang of STRI yet, and I thought "arrays" was somthing to do with flower 
arranging!!) 


Add this on to the prog on page 4-20 (Zybasic Manual) 


1000 X»5: V«4 

1020 INPUT N: INPUT P: INPUT D 

1021 S=V*X 
1025 IF D=0 3=0 

1030 PRINT (N»X+P-X)+S*D 

1035 PRINT: PRINT 
1040 GOTO 1000 


X*Horizontal (length) 

V=Vertical (hight) 

S calculates one full plane 
If only 2 dim array required 
Gives value at 'D' depth of position 
.."seen" on 2 dim array 

Saves me having to type 6.1000 
(..and getting it wrong!) 
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P.S Tried it with 8*9*6 and it still appears to work. 

P.P.S. Now I suppose the Newsletter will want us to write a prog to 
solve Rubies problem!. 


DAVE BALLAM, 13 WOOLIFERS AVE, CORRINGHAM, ESSEX, SS17 9AU. 
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Dear ED, 

I was very excited by issue 6 of lUGN, in particular the article on 
modems. I am taking you up on your offer and I'm going to talk a little 
about my latest project for my Interak? 

For a few months I have been trying to connect my Interak to the 
telephone network, so I have researched the subject in some detail and 
here are some ideas on the subject. 

HARDWARE 

Anything connected to the B.T. telephone network must be B.T. approved. 
So byfar the easiest way to obtain such approved equipment is to buy it, 

I purchased some time ago an old Prestel adapter which will do just 
nicely. Since then however I have learned of a more sutable HODEM. For 
about £50 (+vat) a UNICOM MODEM can be purchased which offers the 
following features: 

Full and Half Duplex, Auto Dial, and Auto Baud rate sensor and, if that 
wasn't enough originate and answer modes! I wish I had seen this before 
I aquired my Prestel adaptor!! 

The Unicom is available at the moment for the BBC, but is soon to be 
available for the Spectrum, but I suspect it would be easy to interface 
to Interak, as it may accept an RS232 link. Unfortunatly I do not know 
where to get them from, so keep your eyes peeled for an advertisment. 

If such a device is utilised interfaceing should be quite easy. The 
software to drive it could be adapted, or re-written, from the Spectrum, 
which is also Z80. (I also have a Spectrum!). With such a set up users 
could access other networks, eg Prestel, Micronet, as well as our own if 
we set one up, and other users directly. 

The other hardware required would be a modern B.T. socket, at a cost of 
£27.00p I think, if not already fitted, and the interface hardware. As 
I have already said this may only be an RS232 port, (or some other 
serial communication device) and perhaps a parallel port to do some 
switching. (£30?). 

SOFTWARE 

The software for various networks varies, so if Interak were to create 
it's own network then we may as well create our own standards. We would 
need software to 1. Control the modem, (machine code routines to handle 
dialing, recieving and sending data), 2. For error checking and 
correction, (errors occuring due to noise on the telephone network), 3. 
Protocol. I have said protocol because this can take many forms which 
may be quite complex to deal with. 

PROTOCOL 

Such a (podem link between two computers must be ultimately controlled by 
protocol, a common language between the two devices, such a language 
must be able to cope with all that the user required, eg. The access to 
centralised data, transfer of programs, graphic displays, menus, and 
other uses of the systems. 

I do not want to go on, but such a protocol system could enable you to 
enter the details of what you want from the main system, then the user 
computer calls the main system, the access and transfer is made and the 
link broken. Other systems may not allow you to request data while the 
link is made. This will be expensive in phone calls! 

I have a more detailed plan of a protocol system which would work on 
Interak. If interest is high I can write again if you require, and I 
could give a more detailed explanation of data networks. 

STEVE BRUMBY, 89 ST MARGARETS ROAD, BRADFORD, W.YORKS, BD7 2BY. 
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PRINT DECIMAL OF HL REGISTER PAIR 
BY R.ELDRIDGE. 

;Print HL register as a decimal number 
;Taken from an algorithm that appears in 
;"Seminumerical Algorithms" Knuth. Addison-Wesley 1969. 
;Although it is my byline I only translated this routine 
;from code written tor the 8080 onto my 280. Ah well! no 
;tame in honesty. 

;AF is destroyed 

ORG 0 


0000 

C5 

HL2DEC:PUSH BC 

{Save BC 

0001 

D5 


PUSH DE 

;Save DE 

0002 

E5 


PUSH HL 

{Save HL 

0003 

01F6FF 


LD BC,-10 

{Set up tor repeated subtraction by 

0006 

IIFFFF 


LD DE,-1 

{Quotient ot result 

0009 

09 

HL2D1: 

ADD HL,BC 

{Remainder » Remainder - 10 

000A 

13 


INC DE 

{Quotient > Quotient 1 

000B 

DA0900 


JP C,HL2D1 

{Flag C until HL goes negative then 

000E 

010A00 


LD BC,10 

{Ready to add back the underflow 10 

0011 

09 


ADD HL,BC 

{Remainder - Remainder ^ 10 

0012 

EB 


EX DE,HL 

{DE has remainder, HL has quotient 

0013 

7C 


LD A,H 

{Check it Quotient zero 

0014 

B5 


OR L 


0015 

C40000 


CALL NZ,HL2D£C ;It Quotient non zero loop 

0018 

7B 

HL2D2: 

LD A,E 

{Get digit from stacked result 

0019 

C630 


ADD A,'0' 

{Convert digit to ASCII 

001B 

4F 


LD C,A 

{Move result digit to C tor ... 

001C 

CD0000 


CALL CONOUT 

{... conout routine (see UGN-7 pl9) 

001F 

El 


POP HL 

{Restore HL 

0020 

D1 


POP DE 

{Restore DE 

0021 

Cl 


POP BC 

{Restore BC 

0022 

C9 


RET 

{Either to HL2D2 or exit done. 

0000 


CONOUT 

EQU 0 

{Put in where yours is 





END 

CONOUT 0000 

;Put in a pointer to your Conout routine. 

HL2D 

0009 




HL2D2 0018 




HL20EC 0000 
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INTERAKTION BOOK LIBRARY 

This section is to give members access to a wide range of 
computing and electronicsi The only cost to the member is 
postage. Books may be borrowed for up to 4 weeks. At present 
available are i- 

LANGUAGE BOOKS 

TRS 80 Assembly Language Programming ... Radio Shack 
Z8(9 Assembly Language Programming Manual.Zilog 

A Course in Basic Programming .. Sinclair 

Making the Most of your ZX 80 . Tim Hartnell 

30 Hour Basic ... C. Prigmore 

Basic for Home Computers . B.Albrecht, L.Finkel & J.Brown 

Course in Standard Coral 66 . J.D.Halliwel & T.A Edwards 

Simple Pascal ... J.McGregor & A.Watt 

Lecture Notes in Computer Science 

Pascal User Manual and Report .......... K.Jensen l( N.Wirth 


July 1985 


books on 
that of 
the books 


DATA BOOKS 

Mostek 1982/1983 Microelectronic Data Book (mem/CPU/Per) .. Mostek 


Memory Data Book & Designers Guide 1980 . Mostek 

Bytewyde Memory Data Book 1981 ... Mostek 

National Semiconductor Memory Data Book (1980). National 

National Semiconductor Interface Data Book (1980. National 

TTL Data Book . National 

The European Selection (mem/inface/lin) ... Motorola 


GENERAL b ELECTRONICS 


Computer Technology for Technicians 

and Technical Engineers Vol. 1 . R. Watkin 

Electronic Computers Made Simple ... H. Jacobowitz 

Test Instruments for Electronics 

(how to build test instruments) . M. Clifford 

Practical Test Instruments You Can Build ... W. Green 
How to Troubleshoot I Repair 

Electronic Test Equipment ... M. Horowitz 

Computers and the Social Sciences .. A. Brier Sc I. 


Robinson 


MANUALS etc. 

Epson MX-80 Type II Operation Manual . 

Newbury 8000 Series VDU Terminal 

Operator Instruction Manual . 

Electronics Projects Index .. 

Why Do You Need a Personal Computer? . 

Computer Programming in the Classroom . 

TABS Accounting Business Systems User Guide Vol 1. 
Easy Add-on Prejects,Spectrum,ZX-81,Jupiter Ace .. 
6502 Games ..... 


Epson 

Newbury Labs 
Polytechnic 
Leventhal Sc Straffars 
B.J.Jackson 
TABS 

Owen Bishop 
Rodney Zaks 


All books have been donated by users. If you have any books etc. surplus 
to requirements please let me have them. 

See Contacts page at the end of this issue for "BOOKS" address. 

Richard Bowyer 
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SOFTWARE LIBRARY 

See Contacts page at the end of this issue for "ORDER FROM" addresses. 
Software supplied is the responsibility of the "ORDER FROM". Please 

deal directly with the "ORDER FROM" in the event of bugs ect. 

You may use this section to sell software to other users. Send a single 
line entry, as below, to the EDITOR. Note that you will be responsible 

for the distribution and support of your own product. The newsletter 

cannot be held responsible for or get involved with duff code or 
distributers. Of course we will publish letters deriding any product 
that fails to live up to its claims. 


NAME 

DESCRIPTION CODE 

VDU 

ORDER FROM 


COST 

INTERAK BULLETIN BOARD SOFTWARE 

? 

? 

D.MASON 


£ 4.00 

ZYMON 2.803 

INTERAK monitor 

MC 

A 

GREENBANK 


£15.95 

ZYMON 2.203 

INTERAK monitor 

MC 

C 

6REENBANK 


£15.95 

ZYBASIC 2A 

INTERAK BASIC (tape) 

MC 

A 

GREENBANK 


£14.95 

ZYBASIC 2C 

INTERAK BASIC (Rom) 

MC 

A 

GREENBANK 


£27.75 

ZYBASIC 3A 

INTERAK BASIC (tape) 

MC 

C 

GREENBANK 


£15.95 

ZYBASIC 3C 

INTERAK BASIC (Rom) 

MC 

C 

GREENBANK 


£27.75 

XTAL BASIC 

14K BASIC 

MC 

A 

USER 

GROUP 


£40.00 

XTAL BASIC 

14K BASIC 

MC 

C 

USER 

GROUP 


£40.00 

FIGFDRTH 

Forth Compiler 

MC 

A 

USER 

GROUP 


£15.00 

FIQFORTH 

Forth Compiler 

MC 

C 

USER 

GROUP 


£15.00 

ASM 32 

Editor Assembler 

MC 

A 

USER 

GROUP 


£10.00 

ASM 64 

Editor Assembler 

MC 

C 

USER 

GROUP 


£10.00 

HC DISASS 

Simple Disassembler 

MC 

A 

USER 

GROUP 


£ 3.00 

REVAS 

Better Disassembler 

MC 

A 

USER 

GROUP 


POA 

ME6ABUG 

Debug/Training Package 

MC 

C 

USER 

GROUP 


£13.00 

VELTEXT 

Text Editor 

MC 

A 

USER 

GROUP 


£ 5.00 

VELTEXT 

Text Editor 

MC 

C 

USER 

GROUP 


£ 5.00 

Lander 

Lander Game 

XL 

C 

USER 

GROUP 


PP 

Towers 

Towers Puzzle 

XL 

C 

USER 

GROUP 


PP 

Crazy Maze 

"3D" Maze Game 

XL 

C 

USER 

GROUP 


PP 

Avalanche 

Blob Dodging Game 

ZB2 

A 

USER 

GROUP 


PP 

Monster Mash 

Maze Game 

ZB2 

A 

USER 

GROUP 


PP 

Graph 

Graph Plotter 

Z62 

A 

USER 

GROUP 


PP 

Rakovsky 

Computer Chess (6 levs) 

MC 

A 

USER 

GROUP 

\ 


AC10.XX 

(Chess men EPROM VDU-K) 


A 

USER 

GROUP 

/ 

£ 3.00 

Rakovsky 

Computer Chess (6 levs) 

MC 

C 

USER 

GROUP 

\ 


AC10.XX 

(Chess men EPROM VDU-2K) 

C 

USER 

GROUP 

/ 

£ 3.00 

Happy Sums 

Fun maths 

ZB2 

A 

USER 

GROUP 


PP 

Hangman 

Spelling game 

ZB2 

A 

USER 

GROUP 


PP 

0'5 and X's 

Game 

ZB2 

A 

USER 

GROUP 


PP 

Pools Pick 

Random Draw Selector 

ZB2 

A 

USER 

GROUP 


PP 

Count 

Learn to count 

ZB2 

A 

USER 

GROUP 


PP 

Dice Pontoon 

Simple Game 

ZB2 

A 

USER 

GROUP 


PP 

Key: MC 

- machine code. 

Screen: A 

32 X 

24 VDU-K 

ZB2 

= ZYBASIC. 



B 

64 X 

16 VDU-IK 

XL 

« XTAL BASIC. 



C 

64 X 

24 VDU-2K 

PP 

- Postage S( Packing. 







POA 

= Please enquire (Price 

on 1 

Application). 
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BACK ISSUES... 

BOOKS. 

BULLETIN BOARD 

D.MASON. 

EDITOR. 

GREENBANK .... 

MEMBERSHIP.... 

P.C.TAPES. 

SUBSCRIPTIONS. 

USER GROUP ... 


CONTACTS 

To obtain Back liiuei Hrite to i *‘ 

Mr D.Parkini, Greenbank Electronici, 92 Non Cheater road, 
New Ferry, Nirral, Meraeyeide, L62 SAG. 

To borrow or supply books contact i* 

Mr R.E.Bowyer, 45 Ford drive, Yarnfield, Stone, Staffs. 

For information and software contact i- 

Mr D.Mason, Pererill Court, Mooragh Promenade, Ramsey, 

Isle of man. 

Mr D.Mason, Pererill Court, Mooragh Promenade, Ramsey, 
Isle of man. 

Send newsletter contributions to 

Mr R.Eldridge, 28 Wycherley Close, Blackheath, London, 

SE3 7QH. Please no phone calls. 

To obtain software from Greenbank write to i- 
Greenbank Electronics Ltd, 92 New Chester road. 

New Ferry, Nirral, Merseyside, L62 SAG. 

For membership information contact x- 

Mr P.P.Vella, 19 Ford drive, Yarnfield, Staffs. 

For details contact 

Mr M.Saunders, 7 Drumcliff road, Thurnby Lodge, 

Leicester, LE5 2LH. 

For lUG subscriptions contact i- 

Mr P.P.Vella, 19 Ford drive, Yarnfield, Staffs. 

To obtain software from the User Group write to t- 
Mr P.P,Vella, 19 Ford Drive, Yarnfield, Staffs. 







